home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
misc
/
mf-db.zip
/
VBSAMPLE\BCARDRED.FRM
< prev
next >
Wrap
Text File
|
1993-05-10
|
3KB
|
108 lines
VERSION 2.00
Begin Form bcardREd
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Edit Reference"
Height = 2340
Left = 2385
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1965
ScaleWidth = 3270
Top = 3180
Width = 3360
Begin CommandButton Command2
Caption = "Cancel"
Height = 375
Left = 1860
TabIndex = 7
Top = 1500
Width = 1215
End
Begin CommandButton Command1
Caption = "Save"
Height = 375
Left = 60
TabIndex = 6
Top = 1500
Width = 1275
End
Begin TextBox Text3
Height = 315
Left = 60
TabIndex = 4
Top = 1020
Width = 3075
End
Begin TextBox Text2
Height = 315
Left = 900
TabIndex = 2
Top = 360
Width = 735
End
Begin TextBox Text1
Height = 315
Left = 60
TabIndex = 0
Top = 360
Width = 735
End
Begin Label Label3
BackColor = &H00C0C0C0&
Caption = "Name"
Height = 195
Left = 60
TabIndex = 5
Top = 780
Width = 1575
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "Subgroup"
Height = 195
Left = 900
TabIndex = 3
Top = 120
Width = 915
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Group"
Height = 195
Left = 60
TabIndex = 1
Top = 120
Width = 735
End
End
Option Explicit
Sub Command1_Click ()
Dim ref As tReference
' SAVE the record specified in passL (global)
ref.ref = Val(text1.Text)
ref.refsub = Val(text2.Text)
ref.name = text3.Text
junk = mfWrite(passL, ref, TaskHndl, refDBHndl, MFRW_ALL)
Unload Me
End Sub
Sub Command2_Click ()
Unload Me
End Sub
Sub Form_Load ()
Dim ref As tReference
' Load the record specified in passL (global)
junk = mfRead(passL, ref, TaskHndl, refDBHndl, MFRW_ALL)
text1.Text = Format$(ref.ref)
text2.Text = Format$(ref.refsub)
text3.Text = ref.name
End Sub